;experimento sobre colores
;abrir un scatterplot y ejecutar esto

(defun bow ()
(send *current-plot* :back-color 'black)

(send *current-plot* :point-color  (which (mapcar '(lambda (x) (equal x 'blue)) (send *current-plot* :point-color (iseq (send *current-plot* :num-points))))) 'white)

(defmeth  *current-plot* :redraw ()
(send self :draw-color 'white)
(call-next-method))
(send *current-plot* :redraw)

)


